home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Mag HDD Backup
/
Amiga Mag HDD Backup.zip
/
Amiga Mag HDD Backup
/
Alexander.img.bin
/
Alexander.img
/
portable
/
Don't destroy Archive.sit
/
1111MAIN ARCHIVE
/
BYRD.BAK
< prev
next >
Wrap
Text File
|
1988-05-20
|
419b
|
18 lines
10 OPEN "C:\ACSUBIN" FOR INPUT AS #1
20 OPEN "C:\ACSUB3RD" FOR OUTPUT AS #2
21 R=0
25 PRINT #2,CHR$(34);
30 A$=INPUT$ (1,1)
32 IF EOF(1) THEN END
35 IF A$ = CHR$(34) GOTO 30
40 IF A$ = CHR$(9) THEN GOTO 150
50 IF A$ = CHR$(13) THEN GOTO 200
100 PRINT #2,A$;
110 GOTO 30
150 PRINT #2,CHR$(34);CHR$(44);CHR$(34);
160 GOTO 30
200 PRINT #2,CHR$(34);A$;CHR$(10);CHR$(34);
205 R=R+1
210 PRINT R
250 GOTO 30